
Namespace language
    Namespace japanese
        Public Module ___any2pron___
            Friend ife As IFELib.IFEClass = Nothing

            Public Function any2hira(ByRef s As String) As String
                Dim rtn As String = Nothing
                If ife Is Nothing Then
                    ife = New IFELib.IFEClass
                    If ife.Initialize Then
                        rtn = ife.normalToHiragana(s)
                    End If
                Else
                    rtn = ife.normalToHiragana(s)
                End If
                Return rtn
            End Function

            Public Function any2pron(ByRef str As String, Optional ByVal shortenlevel As Int32 = 2) As String
                Dim rtn As String = Nothing
                rtn = any2hira(str)
                rtn = hira2pron(rtn, shortenlevel)
                Return rtn
            End Function
        End Module

    End Namespace
End Namespace
